home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / developm / source / cdevskel.cpt / CdevSkeleton2.0 ƒ / CYourCdev.p < prev    next >
Encoding:
Text File  |  1991-08-20  |  1.8 KB  |  104 lines
  1. {CYourCdev.p}
  2. {}
  3. {A sample cdev class.}
  4. {}
  5. {NOTE: This object pascal cdev will only work with THINK Pascal 4.0!}
  6. {Do not attempt to use it in earlier versions!}
  7. {}
  8. {This cdev is set up to handle objects as well as Global vars.}
  9.  
  10. UNIT CYourCdev;
  11.  
  12. INTERFACE
  13.  
  14.     USES
  15.         CCdev;
  16.  
  17.     TYPE
  18.         CYourCdev = OBJECT(CCdev)
  19.  
  20.     {Instance variables}
  21.  
  22.     {Overriden functions, be sure call inherited when necessary}
  23.  
  24.                 PROCEDURE Init;
  25.                 override;
  26.                 PROCEDURE Hit (item: integer);
  27.                 override;
  28.  
  29.     {Your Control Panel's specific methods}
  30.  
  31.                 PROCEDURE DoAbout;
  32.             END;
  33.  
  34.     CONST
  35.         aboutButton = 2;
  36.         aboutID = -4048;
  37.         dialogID = -4048;
  38.  
  39.     FUNCTION Runable: Boolean;
  40.     FUNCTION NewCdev: CCdev;
  41.  
  42. IMPLEMENTATION
  43.  
  44. {------------------------------------------------------------------------------------------}
  45.  
  46.     FUNCTION Runable: Boolean;
  47.     BEGIN
  48.         Runable := True;
  49.     END;
  50.  
  51. {------------------------------------------------------------------------------------------}
  52.  
  53.     FUNCTION NewCdev: CCdev;
  54.         VAR
  55.             thisCdev: CYourCdev;
  56.  
  57.     BEGIN
  58.         new(thisCdev);
  59.         NewCdev := thisCdev;
  60.     END;
  61.  
  62. {------------------------------------------------------------------------------------------}
  63.  
  64.     PROCEDURE CYourCdev.Init;
  65.     BEGIN
  66.         INHERITED Init;
  67.     END;
  68.  
  69. {------------------------------------------------------------------------------------------}
  70.  
  71.     PROCEDURE CYourCdev.Hit (item: integer);
  72.     BEGIN
  73.         CASE item OF
  74.             aboutButton: 
  75.                 DoAbout;
  76.             OTHERWISE
  77.                 ;
  78.         END;
  79.     END;
  80.  
  81. {------------------------------------------------------------------------------------------}
  82.  
  83.     PROCEDURE CYourCdev.DoAbout;
  84.         VAR
  85.             d: DialogPtr;
  86.             item: integer;
  87.             p: GrafPtr;
  88.  
  89.     BEGIN
  90.         GetPort(p);
  91.  
  92.         d := CenterNewDialog(dialogID, NIL, WindowPtr(-1), geneva, 9);
  93.  
  94.         REPEAT
  95.             ModalDialog(@DlgFilter, item);
  96.         UNTIL item = 1;
  97.  
  98.         DisposDialog(d);
  99.         SetPort(p);
  100.     END;
  101.  
  102. {------------------------------------------------------------------------------------------}
  103.  
  104. END.